#!/usr/bin/perl
print "Test\n";

for ($i = 0; $i != 10; ++$i)
{
     print "$i";
}
print "\n";
